home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / vsllib / DEMOS / bases < prev    next >
Encoding:
Text File  |  1995-05-01  |  1.9 KB  |  72 lines
  1. #!vsl
  2.  
  3. // $Id: bases,v 1.1.1.1 1995/05/01 15:48:48 zeller Exp $ 
  4. // a few base demos
  5.  
  6. // $Log: bases,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:48  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.3  1993/06/25  12:04:16  zeller
  11. // Fix: Kommentare Log-Datei angepasst
  12. //
  13. // Revision 9.2  1993/05/22  20:22:17  zeller
  14. // %Q% added by apply-q-flag.sh 1.5
  15. // 
  16. // Revision 9.1  1991/07/08  06:00:54  zeller
  17. // Installierte Version
  18. // 
  19. // Revision 8.1  1991/07/06  15:04:01  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 4.1  1991/05/25  12:52:39  zeller
  23. // Neue Version mit folgenden Eigenschaften:
  24. // Let- und Where-Konstrukten;
  25. // Lokalen und globalen Funktionen, Overloading;
  26. // Erweiterten Fehlermeldungen.
  27. // 
  28. // Revision 2.4  1991/04/27  14:46:49  zeller
  29. // Operatoren umgestellt: '|' -> ':', '!' -> '|' (wie gehabt)
  30. // 
  31. // Revision 2.3  1991/02/27  02:13:59  zeller
  32. // Umstellung auf neue Syntax (fast ganz wieder die alte)
  33. // 
  34. // Revision 2.2  1991/02/26  11:52:01  zeller
  35. // Umstellung von 'dispVSL' auf 'vsl'
  36. // 
  37. // Revision 2.1  1991/02/26  11:46:24  zeller
  38. // Anpassung auf neue Syntax (vorerst ungetestet)
  39. // 
  40. // Revision 1.3  1991/02/10  18:25:16  zeller
  41. // Letzte Definition muss global sein, um nicht geloescht zu werden
  42. // 
  43. // Revision 1.2  1991/02/05  13:51:12  zeller
  44. // Rekursion mit neutralem Element beendet;
  45. // Klammerung dank echter Assoziativitaet ueberfluessig
  46. // 
  47. // Revision 1.1  1991/02/04  20:19:53  zeller
  48. // Initial revision
  49. // 
  50.  
  51. #include <std.vsl>
  52.  
  53. start() = 0;
  54. end() = 15;
  55.  
  56.  
  57. // right-formatted number
  58. rnum(x, base) = e_flush(num(x, base)) & " ";
  59.  
  60. // single column
  61. show(base, start()) = vnull();
  62. show(base, x) = show(base, x - 1) | rnum(x, base);
  63. show(base) = e_flush("#" & num(base) & " ") | hrule() | show(base, end());
  64.  
  65. // all
  66. bases(1) = hnull();
  67. bases(base) = bases(base - 1) & show(base);
  68. bases() = bases(16);
  69.  
  70. bases_main() = bases();
  71. bases_main(...) -> bases_main();
  72.